home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk202 / bbbbs2 / rexx / answer.baud < prev    next >
Text File  |  1995-03-19  |  605b  |  39 lines
  1. /***   $VER: Answer.baud version 1.3  16 Feb 1991 */
  2. /***  copyright 1990 Richard Lee Stockton  *** ALL RIGHTS RESERVED  ***/
  3.  
  4. OPTIONS RESULTS
  5. SIGNAL ON BREAK_C
  6. CR='0D'x
  7.  
  8.  
  9. Send 'ATA\r'
  10. Timeout 20
  11. Wait 'CONNECT'      /* wait 20 seconds for connect */
  12. IF RC>0 THEN SIGNAL RESET
  13. CALL DELAY(100)
  14. Remote ON
  15. Queue CR
  16. SAY CR
  17. Timeout 60
  18. dcd
  19. IF RC=0 THEN SIGNAL BREAK_C
  20. SAY CR
  21. SAY '             Loading BBBBS... Thank you for your patience.'CR
  22. SAY CR
  23. SAY CR
  24. CALL BBBBS.baud();
  25. EXIT;
  26.  
  27.  
  28. BREAK_C:
  29. Remote OFF
  30.  
  31. RESET:
  32. Send '\ah'
  33. CALL DELAY(100)
  34. baud 2400
  35. Send 'ATZ\r'  /* reset modem */
  36. EXIT;
  37.  
  38. /* end of Answer.baud */
  39.